home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / demos / 276 / autofuji.cyb next >
Encoding:
Text File  |  1988-05-21  |  6.0 KB  |  1 lines
  1.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ' noop is free?                                                 \ image titlescr                                                \ titlescr cycle titlescr show1                                 \ new!                                                          SEQUENCE FUJI    .( -> fuji loaded      )                       SEQUENCE FUJI2   .( -> fuji2 loaded     )                       SOUND TRACKTOR   .( -> tracktor loaded  )                       SOUND LIFTUP     .( -> liftup loaded    )                       SOUND WICK       .( -> wick loaded      )                       SOUND HIT        .( -> hit loaded       )                       SOUND TIMBER     .( -> timber loaded    )                       SOUND CRASH1     .( -> crash1 loaded    )                       SOUND LIFTDOWN   .( -> liftdown loaded  )                       \ -1. color-cycle                                                                                                                                                                            -->: SOUND-SETUP                                                    3850 1 tracktor snd-array 1070 liftup snd-array                 1270 wick snd-array 2650 hit snd-array                          2700 timber snd-array 2750 crash1 snd-array                     3600 liftdown snd-array  ;                                     200 wick priority                                               : SOUND-PLAY                                                     tracktor play liftup play wick play                             hit play timber play crash1 play liftdown play  ;              : SOUND-RESET                                                    tracktor reset liftup reset wick reset hit reset                timber reset crash1 reset liftdown reset ;                     : REPLAY                                                          ." Press [Return] to replay, others quit. "                     key 13 = if 4 load else bye then ;                                                                                         -->\ fuji sequence procedure                                       : FUJIGO                                                          sound-setup                                                     zero-clock 10 fuji rate 10 fuji2 rate                           fuji show1                                                      tick                                                                   sound-play fuji update                                   tock                                                            fuji2 show1                                                     tick                                                                   sound-play fuji2 update                                  tock                                                            sound-reset fuji reset fuji2 reset                              replay                                                        ;                                                                                                                            -->fujigo